;---------------------------------------
;----------- F1 to F8 enabled ----------
;---------------------------------------

    Global $Paused

    HotKeySet( "{F1}", "Click0" )
    HotKeySet( "{F2}", "Click1" )
    HotKeySet( "{F3}", "Click2" )
    HotKeySet( "{F4}", "Click3" )
    HotKeySet( "{F5}", "Click4" )
    HotKeySet( "{F6}", "Click5" )
    HotKeySet( "{F7}", "Click6" )
    HotKeySet( "{F8}", "Click7" )
    HotKeySet( "{PAUSE}", "Terminate" )
    HotKeySet( "{INSERT}", "Pause" )

    While 1
        Sleep(500)
    WEnd

        Func Click0()
            HotKeySet( "{F1}" )
            Send( "{F1}" )
            MouseClick( "right" )
            HotKeySet("{F1}", "Click0")
        EndFunc

        Func Click1()
            HotKeySet( "{F2}" )
            Send( "{F2}" )
            MouseClick( "right" )
            HotKeySet("{F2}", "Click1")
        EndFunc

        Func Click2()
            HotKeySet( "{F3}" )
            Send( "{F3}" )
            MouseClick( "right" )
            HotKeySet("{F3}", "Click2")
        EndFunc

        Func Click3()
            HotKeySet( "{F4}" )
            Send( "{F4}" )
            MouseClick( "right" )
            HotKeySet("{F4}", "Click3")
        EndFunc

        Func Click4()
            HotKeySet( "{F5}" )
            Send( "{F5}" )
            MouseClick( "right" )
            HotKeySet("{F5}", "Click4")
        EndFunc

        Func Click5()
            HotKeySet( "{F6}" )
            Send( "{F6}" )
            MouseClick( "right" )
            HotKeySet("{F6}", "Click5")
        EndFunc

        Func Click6()
            HotKeySet( "{F7}" )
            Send( "{F7}" )
            MouseClick( "right" )
            HotKeySet("{F7}", "Click6")
        EndFunc

        Func Click7()
            HotKeySet( "{F8}" )
            Send( "{F8}" )
            MouseClick( "right" )
            HotKeySet("{F8}", "Click7")
        EndFunc

        Func Terminate()
            Exit 0
        EndFunc

        Func Pause()
            if $Paused Then
                HotKeySet( "{F1}" )
                HotKeySet( "{F2}" )
                HotKeySet( "{F3}" )
                HotKeySet( "{F4}" )
                HotKeySet( "{F5}" )
                HotKeySet( "{F6}" )
                HotKeySet( "{F7}" )
                HotKeySet( "{F8}" )
            Else
                HotKeySet( "{F1}", "Click0" )
                HotKeySet( "{F2}", "Click1" )
                HotKeySet( "{F3}", "Click2" )
                HotKeySet( "{F4}", "Click3" )
                HotKeySet( "{F5}", "Click4" )
                HotKeySet( "{F6}", "Click5" )
                HotKeySet( "{F7}", "Click6" )
                HotKeySet( "{F8}", "Click7" )
            EndIf
            $Paused = NOT $Paused
        EndFunc

;---------------------------------------
;---- AutoClick script generated at ----
;------- http://diablo.7708.net --------
;---------------------------------------